home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Science
/
RLaB
/
rlib
/
epsilon.r
< prev
next >
Wrap
Text File
|
1994-04-25
|
160b
|
16 lines
//
// Compute machine epsilon
//
epsilon = function()
{
local(eps);
eps = 1.0;
while((eps + 1.0) != 1.0)
{
eps = eps/2.0;
}
return eps;
};